home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2002-10-29 | 2.5 KB | 80 lines |
- "FILE"="Xteq Systems X-Setup Plugin 6.0"
- "TYPE"="6"
- "COUNT"="5"
- "UIPATH 1"="Appearance\Desktop\Icons\Visible Icons"
- "UIPATH 2"="System\Scheduled Tasks\Visibility"
- "NAME"="Generic Window Icons"
- "LANGUAGE"="VBScript"
- "VERSION"="2.10"
- "TEXT 1"="Recycle Bin"
- "TEXT 2"="Printer"
- "TEXT 3"="Control Panel"
- "TEXT 4"="Scheduled Tasks"
- "TEXT 5"="Outlook/Inbox"
- "DESCRIPTION 1"="To show an item on the desktop, activate it. To hide it, deactivate it."
- "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
- "AUTHOR"="Xteq Systems"
- "CONTACTURL"="http://www.xteq.com"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
- "COMMENT 2"="Thanks to Siegfried Burgstedt for his fix!"
- "COMMENT 3"=" "
- "COMMENT 4"="from lockergnome.com:
- "COMMENT 5"="Adam Rao <adam_rao@hotmail.com>: What exactly is a "Recyle Bin"? :)"
- "COMMENT 6"="Pierre Szwarc <szwarc@usa.net>: Its an invisible Recycle Bin (you don't 'C' it) <G>"
-
-
-
-
- '******************************************************************
- '*** MASTER TEMPLATE (1 of X) ****
- '******************************************************************
- sVals=Array("{645FF040-5081-101B-9F08-00AA002F954E}","{2227A280-3AEA-1069-A2DE-08002B30309D}","{21EC2020-3AEA-1069-A2DD-08002B30309D}","{D6277990-4C6A-11CF-8D87-00AA0060F5BF}","{00020D75-0000-0000-C000-000000000046}")
- '******************************************************************
- '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
- '******************************************************************
- sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\"
-
-
-
- Sub Plugin_Initialize
- for i=0 to GetUIElementsCount-1
- s=sPath & sVals(i)
-
- if RegPathExists(s) then SetUIElement i+1,true
- next
- End Sub
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- for i=0 to GetUIElementsCount-1
- b=GetUIElement(i+1)
- s=sPath & sVals(i)
-
- if b=true then
- Call RegWriteValue(s & "\@","",1)
- else
-
- if RegPathExists(s) then
- if RegValueExists(s & "\Removal Message") then
- Call RegDeleteValue(s & "\Removal Message")
- end if
-
- 'finally delete the path
- Call RegDeletePath(s)
- end if
- end if
- next
-
- Call IndicateSettingChange()
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-